The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/UNZIP-DEMO/ZIPFILES/alt00/00050.ls

Text File | 1995-05-25 | 4.9 KB | 216 lines

on kroll
  if the mouseCast = the castNum of sprite 3 then
    repeat while the mouseCast = the castNum of sprite 3
      set the castNum of sprite 3 to 91
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 3 to 81
  end if
  if the mouseCast = the castNum of sprite 4 then
    repeat while the mouseCast = the castNum of sprite 4
      set the castNum of sprite 4 to 92
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 4 to 82
  end if
  if the mouseCast = the castNum of sprite 5 then
    repeat while the mouseCast = the castNum of sprite 5
      set the castNum of sprite 5 to 93
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 5 to 83
  end if
  if the mouseCast = the castNum of sprite 6 then
    repeat while the mouseCast = the castNum of sprite 6
      set the castNum of sprite 6 to 94
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 6 to 84
  end if
  if the mouseCast = the castNum of sprite 7 then
    repeat while the mouseCast = the castNum of sprite 7
      set the castNum of sprite 7 to 95
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 7 to 85
  end if
  if the mouseCast = the castNum of sprite 8 then
    repeat while the mouseCast = the castNum of sprite 8
      set the castNum of sprite 8 to 96
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 8 to 86
  end if
  if the mouseCast = the castNum of sprite 9 then
    repeat while the mouseCast = the castNum of sprite 9
      set the castNum of sprite 9 to 97
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 9 to 87
  end if
  if the mouseCast = the castNum of sprite 10 then
    repeat while the mouseCast = the castNum of sprite 10
      set the castNum of sprite 10 to 98
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 10 to 88
  end if
  if the mouseCast = the castNum of sprite 10 then
    repeat while the mouseCast = the castNum of sprite 10
      set the castNum of sprite 10 to 98
      updateStage()
      if the mouseDown then
        rflash()
        exit
      end if
    end repeat
    set the castNum of sprite 10 to 88
  end if
  if the mouseCast = the castNum of sprite 11 then
    repeat while the mouseCast = the castNum of sprite 11
      if the mouseDown then
        go("demo")
        exit
      end if
      zzz()
    end repeat
  end if
  if the mouseCast = the castNum of sprite 12 then
    repeat while the mouseCast = the castNum of sprite 12
      if the mouseDown then
        go("demo")
        exit
      end if
      jesus()
    end repeat
    updateStage()
  end if
  if the mouseCast = the castNum of sprite 14 then
    repeat while the mouseCast = the castNum of sprite 14
      set the castNum of sprite 14 to 52
      updateStage()
      if the mouseDown then
        clown2()
        exit
      end if
    end repeat
    set the castNum of sprite 14 to 51
  end if
  if the mouseCast = the castNum of sprite 20 then
    go("ven1")
    updateStage()
    exit
  end if
  if the mouseCast = the castNum of sprite 21 then
    go("ven1")
    updateStage()
    exit
  end if
end

on clown2
  set the castNum of sprite 14 to 53
  updateStage()
  startTimer()
  repeat while the timer < 15
  end repeat
  set the castNum of sprite 14 to 52
  updateStage()
  go("demo")
  exit
end

on zzz
  set k to 1
  repeat while k < 4
    set the castNum of sprite 11 to 71 + k
    updateStage()
    if the mouseDown then
      go("demo")
      exit
    end if
    startTimer()
    repeat while the timer < 4
    end repeat
    set k to k + 1
  end repeat
  set k to 1
  repeat while k < 4
    set the castNum of sprite 11 to 74 - k
    updateStage()
    if the mouseDown then
      go("demo")
      exit
    end if
    startTimer()
    repeat while the timer < 4
    end repeat
    set k to k + 1
  end repeat
end

on jesus
  set k to 1
  if the mouseDown then
    go("demo")
    exit
  end if
  repeat while k < 3
    set the castNum of sprite 12 to 31 + k
    updateStage()
    startTimer()
    repeat while the timer < 5
      if the mouseDown then
        go("demo")
        exit
      end if
    end repeat
    set k to k + 1
  end repeat
  set k to 1
  repeat while k < 3
    set the castNum of sprite 12 to 33 - k
    updateStage()
    startTimer()
    repeat while the timer < 5
      if the mouseDown then
        go("demo")
        exit
      end if
    end repeat
    set k to k + 1
  end repeat
end